SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSSSSSSSSSSS_ YYY YYY SSSSSSSSSSSS LLL 000000000 AAAAAAAAA 
SSS YYY YYY SSS LLL 000 000 AAA AAA 
SSS vYY YYY SSS LLL 000 000 AAA ABA 
SSS YYY YYY SSS LLL 000 000 AAA AMA 
SSS yyy yYY SSS LLL 000 000 AAA ABA 
SSS yyy yYY SSS LLL 000 000 AAA AAL 
SSS yyy yYY SSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA 
SSSSSSSSS vYY SSSSSSSSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 A 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS YYY SSS LLL 000 000 AAAAAAAAAAAAAAA 
SSS vYY SSS) LLL 000 000 AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSS YYY SSS LLL 000 000 AAA AAA 
SSSSSSSSSSSS YYY SSSSSSSSSSSS LLELLLLLLLLLLLLL 000000000 AAA AAR 
SSSSSSSSSSSS vYY SSSSSSSSSSSS LELLLLLLLLLLLLL 000000000 AAA AAA 
SSSSSSSSSSSS yyy SSSSSSSSSSSS LLLLLLLLLLLLLLL 000000000 AAA AAA 
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DECLARATIONS 


CNXSOPT_INIT = Compu 
CNXSOPT = Compute 
D_CMAP = Ad 


te Optimal Initial Subcluster 
ptimal Subcluster 


Dd G a node to CMAP 
REMOVE _AMAP = Remove a node from AMAP 


peg = Quorum 


sk contribution to figure of merit 


CAN_MAP = Scan bits in a specified bitmap 
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;++ 
; FACILITY: EXECUTIVE, CLUSTER MANAGEMENT 


; ABSTRACT: 
; This module contains the routines that compute an optimal fully- 
connected subcluster of a given set of nodes. 


; ENVIRONMENT: VAX/VMS 
; AUTHOR: Dave Thiel, CREATION DATE: 09-Dec-1983 
; MODIFIED BY: 


v03-005 purdces David W. Thiel 27-Jun-1984 
bugging traps. Correct calculation to do consistent 
ponmeoe ng. 


v03-004 pyroies David Ww. Thiel 2-Mar-1984 
ix blown register. 


v03-003 pyTotts David W. Thiel 21-F eb-1984 
Minimize quorum disk votes against value in CLUB. 


v03-002 puTOles David W. Thiel 08-Feb-1984 
Set up R3 before calling REMOVE _AMAP at 2350S. 


v03-001 DWT0162 David W. Thiel 01-Feb-1984 
Add CNXSOPT_INIT enODEMRS. Add menggenent of quorum 
q's bie 2 a NOD Correct coding errors present 
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«SBTTL DECLARATIONS 
INCLUDE FILES: 


CLUBDEF ; CLUster Block offsets 

CLUOPTDEF ; CLUster OPTimization block offsets 
SCSBDEF 3; CSB Offsets 
SDYNDEF ; Data structure type codes 
SFKBDEF : Fork block offsets 


atc lata tabaci nari 


NOTE: The following assumptions are in effect for this entire module. 


> 
SF RRRRRAEEEEAEA EEE A AAA EREAA REAR AAARAAEAEARAEEEEE 


: Assume that all bitmaps are of the same size 

E ASSUME CLUOPTSS MAP. EQ, CLUOPT$S_AMAP 
ASSUME CLUOPTS$S_CMA p.EQ, CLUOPT$S~ RMAP 
ASSUME CLUOPTSS~CMAP,EQ *CSB$S_NOBEMAP 
ASSUME CLUOPTSS_ CMAP, EQ,CLUBSS _NODEMAP 
DEFAULT DISPLACEMENT ,WORD 


»PSECT $$$100,LONG ; PSECT for code 


09.0909 0909090909 0909 SII NINN NINO OA AAO 
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-SBTTL CNXSOPT_INIT = Compute Optimal Initial Subcluster 


+ 
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; FUNCTIONAL DESCRIPTION: 


This routine is is called to compute the optimal genptetety 
interconnected subcluster of the nodes marked with the select bit. 
No previous suggested subcluster is assumed. 


CALLING SEQUENCE: 


JSB CNXSOPT_INIT 
IPL is IPL$_SCS=IPL$_SYNCH 


INPUT PARAMETERS: 


For all CSB's with the SELECTED bit bit: 

CSBSB_NODEMAP is a (potentially optimistic) estimate of the 
connectiv ty of fre node. 

In both NODEMAP’s, bit 0 is used to indicate the state of the 
‘connection™ to the quorum disk. This bit should be set only 
f the quorum disk is the same as on the executing node and 
the disk/quorum file is accessible to the subject node. 


OUTPUT PARAMETERS: 
CLUBSL_FMERIT is the figure of merit of the computed cluster. 
CLUBSB_NODEMAP describes the members of the computed cluster. 

Bit 0 indicates quorum disk participation. 
COMPLETION CODES: 


RO contains status. 
If RO indicates success, R1 will always contain TRUE 


SIDE EFFECTS: 


PEEWWAA AI AIIM s BQO COO ODOOO0000000000 
ROOD NA NE WIN SOO NAN E WIN OOO NAN E WIN O OD NAUNE UO OONOUE wir 
. Sete Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Ge Se Ge Ge Ge Se Ge Ge Ge Se Se Ge Se Se Se Se Sete Se Fetes 


tk tk ek ed a a st a a ss = ts 4 3 2 > 9 ss 3 2 ss 


$0 
3 
ap 
00 
NONE 
CNXSOPT_INIT:: 
3¢ ue PUSHR #AncRe R3,R4,R5> : 
54 00000000'GF oD MOVL GPCL 6. éLuB.R : Fetch a dress of CLUB 
00A8 cs D4 CLRL_ CLUBSL FRERIT (RA) : Clear previous figure of merit 
OOEC C4 20 00 6€ 0 C mOVCS »(SPT,#0, = 3; Zero previous description 
1 cLuBss NODEMAP, - 
1 LUB BRODERAP (4) 
3C—SsCéw®BA 1 POPR #*M<R2,0R5,R4,R5> ; Restore registers 
7 ; BRB CNXSOPT : Fall into CNX$OPT 


Save registers 
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FUNCTIONAL DESCRIPTION: 


This routine is is called to compute the o tinel com ompletely 
interconnected subcluster of the nodes marked with the select bit. 


CALLING SEQUENCE: 


JSB CNXSOPT 
IPL is IPL$_SCS=IPL$_SYNCH 


INPUT PARAMETERS: 


CLUBS$B a ita a en {oitiat cluster to try to better. 
for att Bes e figure of Bere ? the initial cluster. 
For a B's M the ELECTED bit bit: 
NODEMAP is . _botentially optimistic) estimate of the 
tment = ty. of fre 

In both NODEMAP'’s, bit 01s used te jadicote. the state of the 
gy to the quorum disk. This bit should be set only 
if the ayo rum disk is the same as on the ieapet tan node and 
the disk/quorum file is accessible to the subject node. 


OUTPUT PARAMETERS: 


CLUBSL_FMERIT is the figure of merit of the computed cluster. 
CLUBSB_NODEMAP describes the members of the computed cluster. 
Bit 0 indicates quorum disk participation. 


COMPLETION CODES: 


RO contains status. 
If RO indicates success, R1 indicates whether an improved cluster 
(improved over the initial cluster described in CLUBSL_ FMERIT 
and CLUBSB_NODEMAP) was found. 


SIDE EFFECTS: 
NONE 
DESCRIPTION: 


This procedure nrryent jsetes oo possible fully connected subclusters 
that include the local node gne chooses the one with the largest figure 
of merit. The figure of merit is cot ines 4.93: 

(sum of the votes of the nodes * 256) + number of nodes 
The votes of the querun disk are counted, but the quorum disk as a 
node is not counted. 


The search is done errecurston. 1 using a Linked List of CLUOPT Structures 
s the stack for the re urs on. he CLUOPT structure contains t 
ol Loving paccerest (ne. t 
cLUOPTSLP nk to previous bl 
CLUOPTSL-CMERIT: Sum of the votes rs & VAX nodes in CMAP 


a a a a a a a ed od od 
ee > > > > > > > > > > > > > > | 
Bm tn at tt kk kk tk tt tt tt tt tt tt tt 
DOOOOO OOOO O000909 09.09 6969 0909 09 SII NSIS NNN IPA APA AA ADA A MAI 
SODA AL WS OD NA NE WWIN 2 S OOD NAUNE WIN OO OW NAW EWN 0 OD NAME WH OW NOUNS 
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001 CLUOPTSL_ACMERIT: Sum of the votes of the VAX nodes in CMAP and AMAP 

001 CLUOPTSB_CMAP: Bit map o ores already included in the cluster being 

001 omputed. All of the nodes in CMAP are fully 

overcennes ted. 

CLUOPTS$B_AMAP: + ane ° seuss available for inclusion in the cluster 
computed. 

CLUOPTS$SB_RMAP: Bit Sep of nodes excluded from consideration in the 

cluster by virtue of at least one node in CMAP not 

having a connection to the node. 


: ag b> rata and CLUBSL_FMERIT are updated every time a better cluster 
Py und. 


A direct implemention of the search required takes (N-1)! (factorial) steps. 
The execution te. is kept within reason for the expected cases by the 
ollowing heuristic techniques: 

1. Whenever the upper bound on what may be attainable is worse than what 
has already been achieved, the recursion is abandoned. 

2. Whenever multiple nodes are equivalent, they are dealt with 
simultaneously, reducing the breadth and depth of the search. 


CNXSOPT:: 
Cusee 7 Rees RD. MSR RO AT AS RD R10> Save some registers 


O7FC 8F 6B ; Sa : 
7 4 CLRL 5 flag indicating no improved cluster found 
C CLRQ 3; RY is 


5 top of frame stack 
; R10 is address of mapping vector 
51 0460C 8F 3C¢ MOVZWL #<<CSB$S_NODEMAP*8>*4>+12, - ; One longword per possible system 
3 plus standard header 
FFD9" 30 CNXSALLOZMEM 3; Allocate and zero memory 
15 28 E9 BLBC RO,10 3; Branch on error 
5 dO MOVL R2,R1 ; Address of mapping vector 
50 FF BF 9A MOVZBL #<CSBS$S_NODEMAP*8>-1,RO : number of phoney cells 
OC AA4O : 8 5$: MOVL #1,12(RTO) CROJ : catch use of uninitialized cell 
F850 «SOF SOBGTR RO,5 
OB AA 02 90 MOVB #DYNSC_CLU CLUVEC. - 3; Block subtype 


FKB$B_TYPE?1(R1 
; This call enters the main body of the routine. 


3; Use block type of cluster vector 


IIIA IIL ES BS BS BS RS BAA AAI I AI IPO 


NAME WO ODNOA UNE WIN OOD NIA UE WIN  S OD NAME WIN 2 0 OONAUE WA OOONOUE 
@ 
nw” 
@ 
< 


ROOK RIA HNOKHK MNS OVS 99 O89 FS NF LTO NNN 


AAAAAAAE EE BE BAA AAA AAAI) 2 2 2 2 SS SSS 


3; It exists only so that several points in the routine can get 
3 to the common exit with an RSB instruction. 
10 BSBB 100$ 3 Call main section 
) Nts PUSHL R ; Save return status 
50 D 20$: MOVL g RO 3 Stack frame address 
08 1 BEQL $ ; Branch if no frame 
59 6 D MOVL CLUOPTSL_PREV(R9) ,RO ; Pop the stack 
00000000 ' GF 19 JSB Sg NE SDERNONPAGED : Deallocate the frame 
; Iterate to flush more frames 
F 1 BRB 0$ Iterate to flush f 
50 SA 00 30$: MOVL R10,R0 3; Vector address 
1 BEQL 40$ 3; Branch if no 
00000000'GF 16 408 JSB G*EXESDEANONPAGED 3; Deallocate vector 
FFA1" 30 BSBW CHXSSCAN._CSBS 3; Iterate over all CSBs 
06 50 € BLBC RO,50$ 3; Branch when done 
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#1, CSBSB_NODEMAP(R3) 


4 ach hese et etart 


R3,R4,R5, RG: R?7, 


at ee 


Best ~ fine. is in CLUBSB 


to the optimal cluster allocation. 


g to do is to allocate the CLUOPT block 


wo 


R2.R 
#0 NSC CLU_CLU 

CLUO cise s0BTV BE ROD 
ENKBSCA 


RO 

Peéasy Ss TED 
csBSL Suit $1308 

MAP(R 3) 

aéss SAME 

ses istaTusindy, 1108 
V0 TIVE, 

cs ah STATUS CR +1108 
fl. CS6$B MAP(R3) 

cs6$y $y 1370 22 IDK(R3), R1 

R et Matis, AAAPCROD 1358 

cs6eu. VOTESTRS) RO 


CLUOPTSL_ACMERIT(R9) 
acSesy LOCAL, - 
CSASL_STATUS(R3) ,130$ 


ADO _CMAP 


BUG_CHECK CNXMGRERR,FATAL ; 
#0,CLUOPTSB_AMAP(R9) ,135$ ; 


is the entry point into the recursion. 
s of the CLUOPT block for the qurrent level of recursion. 

is the map of nodes definitely 

is the map pt nodes that are yeitl candidates for 


ted. 
Tous ELuoPi block in By recursion. 
9) ig th of the VAX nodes in C 
R9) is the | gure of merit of all of the VAX Ba a 
MAP. It is thus an upper bound on the f 


in the clyster ® bein 
6 che. ocgress of the previ 


ure of mer 


Be Se Gee Se Ge Ge Ge Ge Be Oe te te 


ength 
AT cote and zero memory 
Branch on error 

Update stack frame 
8 ock sub-type 


iterate over all CSBs 


Branch w 


ne 
Branch if not selected 


Clear quorum disk bit 

Branch if quorum disk not 
same as local node 

Branch if quorum disk not 
accessible 


AX/VMS M 
SYSLOA.S 


; Clear quorum disk bit 


Pa 
SRCJCNXOPT MAR: 1 ” 


k bit in CLUB 
ob siete: fetch s 
_NODEMAP 


— describes the basis 


into the 


5 * local node is vs 
only initial member of CMA ¢ ohne initializes the recursion to start from 

7 t be a member of any computed cluster and ail “cher 
selected nodes are potential claster members. 


MOVZBL #CLUOPTSK LENGTH,R1 
BSBW CNXSALLOZAEM 


Mark connection to quorum disk 


CSID index 

; Store CSB address in vector 
3; Set bit in available map 
Votes held by node 

Scale votes 

Count the oete 

Update ACMER 
Branch if not fae CSB 


Stack frame for ADD_C 


MAP 
Add the node to CMAP and return 


funny data 


n the cluster bein 


Mark the quorum disk available 


computed. 
clusion 


“in AMAP and 
ure of merit 
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D 15 ; of any possible cluster, exclusive of the contribution 
D 1 : of a possible quorum disk. 
. te R10 is the address of the CSB vector 
4 1§ 3 200S: 
4 9 : : Remove from AMAP every node not connected to all nodes in CMAP 
34 Ad 3 D : PUSHAB cLUOP TSE _AMAP (RY) ; Address of map to scan 
9173 8 4 BSBW aha ; Initializer map scanner 
26 5 E D 5 BLBC zr08 : Branch when don 
oc AAG] OD Df g MOVL 1 €R10)CR1),R3 CSB address 
16 54 A 21 E E BBS R1,CLUOPTSB__ "RMAP(RO) , 230i ‘ Some node in CMAP is not connected to no 
oe e6 8 TSTL g : Nonexistent CSB? (quorum disk) 
"6 E 9 BEQL 2208 3; Ignore quorum dis 
BEA 0 ASSUME CLUOPTSS_CMAP&3,E0,0 ; Assume bitmap is an integral number of lon 
EA 1 ASSUME CLUOPT$S~CMAP,GE.4 3 Assume at least one iteration 
50 07 00 GEA : MOVL.  #<CLUOPTSS CMAP/4>-1,R0 ° 
52 14 A940 008C C340 (CB ED 210$: BICL3 CSBSB NODERAP (R3)EROJ, - ; Look for missing connection to any node i 
OF6 4 OPTSS_CAAPCRY) ROJ,R2 ; P 
046 12 bce 5 BNEQ : Branch if connection is missing 
F2 50 =F4 Boe § SOBGEQ $0.5108 3; Iterate over entire connection map 
05 Bere 220$: RSB 3; Return to scanner 
52 59 0 OFC § 230$: MOVL R9,R2 3 Stack frame for removal 
0107 1 one rt BRW REMOVE _AMAP 3; Remove from AMAP and return to scanner 
10 45 240$: 
10 4 : 
1 44 ; L9op at 0 giver recursion depth. 
1 45 ; R9 is CLUOPT wlece a this depth. 
1 $6 3 R10 is vector of C 
1 47 ; 
48 So0s 
10 50 ; Determine whether the recursion can be Sracens sques because the best possible resu 
1 3) 3 is not better than the best result already attain 
1 § 3 soneuts an u pec bound the the figure of merit ‘my summing the votes of all nodes 
1 53; in AMAP and Rap ante the minimum of the votes proposed for the quorum disk by 
: 22 3 the nodes in C 
54 09000000" GF D 1 2$ MOVL G*CLUSGL_CLUB,R4 3 adérese of CLUB 
D 1 5 5 MOVL CLUOPTSL “ACMERIT( (R9),R7 ; Contr curios” of VAX nodes 
06 54 a9 5 10D 38 BLBS  CLUOPTS$B-RMAP(R9) , 31 168 : Branch if quorum disk is excluded 
0111 111 BSBW SoREBIT © 3; Calculate quorum disk contribution 
57 9 C 114 60 ADOL ROR : Include contribution of quorum disk 
A 3 by LUBSL_ ; Compare best attainable to best already 
OOAB C4 D1 0117 61 310$ ys CLUBSL_FMERIT(R4) C b i bt be lread 
1B Aig 2 46$ ; Branch if no improvement possible 
11E 64 ; Pick a node from AMAP 
ie ri 3: If none are available, this recursion level is done 
11E $ ASSUME cLuceTss ees EO. 0 
11E § ASSUME Ub Sa 3 Assume at feast ne iteration 
51 dO 011 $ MOVL BCLUDPT # ARABS ; Number of iterations 
04 1s 9 CLRL 4 i aptarti ng bit position 
50 34 a9 20 EA 01 71 320$: FFS a ee 
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CNXSOPT = Compute Opt Subc luster SYSLOA. SRCIJCNXOPT.MAR; 1 (4) vf 
ce. e 129 FINEQ 0 : Branch if bit found 
FS af ig } 74 SOBGTR ay” $508 Iterate over all longwords 
12E 73 | ; No nodes in List of remaining nodes. 
12E g : ; We are at the bottom of the recursion. 
1 ; 4 : Check for best cluster yet and store new best cluster. 
57. OC Ad 4 1 8 ' MOVL CLUOPTSL_ CHER IT (ROD R7 ; VAX con eroutton to figure of merit 
06 14 AD ; 1 BLBC CLUOPT$B_CMAP(R9), 3$0$ ; Branch if um disk not included 
$7 00 6 cD ! tne : | 3; Calculate isk veentribusion 
OOAB C4 ; D 1 330$:  CMPL 8 , LUBSL_FMERIT(R4) 3; Compare this cluster to best seen so far 
! 1 14 4 BLEQU 4 ; Branch if new one is no better, return 
OOAB C4 3 09 14 5 R7, CLUBSL FMERIT(R4) 3; Save figure of merit 
OOEC C4 14 AD 0 14 § MOVC3 ¥#CLUB $NODE 
12F Et UBSB Bg CHAP nO) : 
04 af 99" bg 14F $ MOVL S*#SS$_NORMAL ,4(SP) 3: Mark an laproved cluster found 
2 9 OD 153 0 340$: MOVL R9,R 3; Address of CLUOPT eo ck 
9 69 00 138 91 MOVL CLUOPTSL_PREV(R9) , RO ; POP CLUOPT block s oak 
seed ig 13 3 JSB G*EXESDEANONPAGED ; Deal.ocate this cbuort block 
9 OD 15F 9 TSTL Ro 3 End of stack? 
12 161 iy BNEQ 300$ : Branch if no to continue 
is > : The recursion is complete. This is the main exit. 
50 00° »o0d bie 98 * MOVL S“#SS$_NORMAL ,RO 3; Successful return 
05 Olé? 286 350$: RSB 
167 401 ; A node (index in RO) has been chosen as the basis for constructing a new frame 
167 4&4 gi 3 and Ron iop the recursion down a level. 
199 ? Z : Begin building a new frame. 
53 OC AASO 0 167 it dos: MOVL  12(R10)CROJ,R3 : CSB of basis node 
19 407 : Regsister/Data available: 
16C 409: O(SP) CSB for chosen basis node 
16C 410; R8: CLUOPT for previous frame 
16C 4113; Ro: CLUOPT for new current frame 
19e tig ; R10: Vector of nodes 
51 7% aF 9a 01 414° MOVZBL #CLUOPTSK_LENGTH,R1 ; Length 
00000000" = 18 13 415 JSB gee SALORONPAGED 3; Allocate memory 
E 1 +18 BLBC 3; Branch on error 
s 4 17 41 MOVL R i ; New previous frame 
ae 17C $13 MOVL : New current frame 
A ge 17F Os 41 PUSHR 3 Save CSB address and frame length 
69 51 00 68 OB AB 2c : 4 9 vC5 c dort SIZE (RB) (R8), = ; Copy old block into the new 
Ag F704 4 CVTLW (Shae (luoPTsw SIZE(R9) ; Restore size word 
” 69 3 dO : ; 2 § MOVL (sf CLUOPTSL _PREV(R9) 3; Link to previous frame 
f 4 5 3 Regsister/Data available: 
18F 4 $ : O(SP) CSB for chosen addition 
18F 428; RB: CLUOPT for previous frame 
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O1BF 86429 ; R9: CLUOPT for new current frame 
Ri : 2 3 R10: Vector of nodes 
DISF «©6432 ; Find equivalent nodes in set of remaining nodes (AMAP). 
DISF 435 ; Nodes are equivalent if they see the same connectivity with respect to 
VISF 454 ; cluster and available nodes that are seen by the chosen node. 
DIBF «= «4355 aote that the chosen basis node is added by v reye of it being equivalent 
DI8F 64 § 3 to teel - The quorum disk is treated es a special case because no CSB 
4 : : j ; exists for the disk proper 
4 BEDO O18F 439 ° POPL 4 ; Is the chosen node the quorum disk? 
4 8 D1 : ree BEQL 450$ 3; Branch yes ’ 
34 A 3 01 44 PUSHAB CLUOPT$B_AMAP(R8) ; Scan available nodes in previous frame 
OAF 2 0197 rr BSBW SCAN_MAP : Initialize scanner 
36 50 E€9 O19A 44 Bi.BC R ab0s ; Branch when done 
53 OC AAGI 09 19D 444 MOVL 12¢(R10)CR1),R3 : CSB of node under consideration 
28. Ci DIA 445 BEQL 440$ 3; Branch if quorum disk and ignore it 
DIA a8 ASSUME CSBSS_NODEMAPE3,E0,0 3; Assume an integral number of longwords 
DIAS = «4G ASSUME CSBS$S_NODEMAP,G 3; Assume at least one iteration 
52 07 00 O14 448 MOVL.  #<CSBSS_NODEMAP/4>-1,R2 : Iterate over all bytes of map 
55 008C C342 008C C442 CD O1A7 449 4208: XORL3 CSBSS MODE MAD (ha) ERG -_= ; Compute differences between chosen 
181 $29 CSBSB_NODEMAP(R3S)(R2),R5 ; and candidate nodes 
181 $36 3: Check if any of the differences reflect nodes in either the new CMAP or new AMAP. 
181 455 ; Note that new CMAP .OR. new AMAP is a constant during the execution of this phase 
18 2 : 3; since the only changes allowed move bits from one to the other. 
14 A942 55 OD 181 $38 BITL R5,CLUOPTSB_CMAP(R9)CR2] ; Check for differences with CMAP nodes con 
14 #1 186 45 BNEQ 440$ ; Branch on discrepancy and reject this addi 
bs 3; Check for erences wit es’ co 
34 A942 .. § 18 45 BITL RS,CLUOPT$B_AMAP(R9)CR2] ; Check for diff ith P nodes‘ 
5 3 ; 180 rH See ce 43° 2008 ; Branch on discrepancy and reject this addi 
1C2 461; ; 
1¢ $36 ; At this point, the node whose index is in R1 has the same connectivity, with respe 
1C¢ 465 ; to nodes in CMAP and AMAP, as the basis node and is therefore equivalent to the ba 
1¢ re ¢3 3 node in oxery respect. The basis node plus all equivalent nodes are moved from AM 
1C 465 ; to CMAP simultaneously. This ‘s a major optimization of the direct implementation 
3 of this search (which takes *! actial) steps) because the commonly anticipate 
1C 46 f thi h (which takes “! (N factial) db h l ici d 
ie 2 3; cases have large numbers of equivalent nodes. 
\e 2 3 3; Note that a BSB call is made to this point to handle the quorum disk! 
52 59 vO OIC £3) 4308: MOVL R9,R2 > Stack frame for ADD_CMAP 
aA 1¢ £38 8588 ADO_ CMAP 3; Add node to new CMA 
52 2 oe 1¢ 47 MOVL R8, ; Use previous CLUOPT address 
VE_ ; Remove from o and return 
D 5 158 ore 450s B288 REMOVE_AMAP R f ld AMAP and 
10D = 47 
3] D4 OCD £35 450$: CLRL R1 3; Disk is node 0 
3 bs 1CF 2c8 CLAL R 3 No CSB 
3; Use same code as for normal case 
EF 101 «47 BSBB 430$ d f L 
FEFD 83 103 480 460$: BRW 200$ ; The new recursion is set up -- do it! 
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FUNCTIONAL DESCRIPTION: 


subcluster attaine 
updates RMAP to reflect an 


CALLING SEQUENCE: 
BSBB/BSBW/JSB 
INPUT PARAMETERS: 


Ri: 
RS: 
OUTPUT PARAMETERS: 
NONE 
COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
The contents of RO are destroyed. 


ADD_CMAP 
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ADD_CMAP: 
8 CLUOPT$B_CMAP(R2) 30S 
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-SBTTL ADD_CMAP = Add a node to CMAP 


This routine adds a node to CMAP, 
d in CMAP and t 


; Branch if quorum di 
; Votes held by node 

; Count each vote as 256 points 
; Include the 


; Iterate over all 
: penpve the node from 
; Fall in 


BSS Rt, 
TSTL = R11 ; 
BEQL 208 ; 
MOVZWL CSB$W_VOTES(R3) .RO F 
ASHL  #8,ROTRO : 
INCL R F 
ADDL RO,CLUOPTSL_CMERIT(R2) ; 
ADDL2 RO. CLUOPTSL-ACMERIT(R2) : 
ASSUME CSB$S_NODEMAPE3,£0,0  ; 
ASSUME CSBS$S~NODEMAP GE 4 : 
MOVL  &#<CSBSS_NODEMAP/4>-1_R0 : 
108: COR, CSB$B_NODEMAP(R3)CROI,-(§ 
BISL (SP) CLUOPTS$B_RMAP(R2)CR 
SOBGEQ RO,10$ : 
20$:  8SBB  REMOVE_AMAP : 
RSB : 
30$:  BUG_CHECK CNXMGRERR, FATAL ; 
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JCNXOPT MAR; 1 


roo 


adjusts the figure of merit for the 
he best potential subcluster, and 


additional nodes whose membership is 
incompatibile with the subject node. 
If the subject node is a member of AMAP, it is removed. 


Index of the node to add to CMAP 
Address of CLUOPT block containing the CMAP and AMAP 
Address of the CSB of the node to add 


3; Add to new CMAP, branch if 
Is the subject the quorus di 
s 


present 
sk 


node 
Add to CMERI\ 
Add to ACMERIT 


; Assume map is an integral number of longwo 
; Assume at Least one iteration 


Update rejection map 
Nodes not connected to subject node 


(SP) ; 
2)CRO] : Mark unconnected nodes as rejected 


longwords of map 
to REMOVE_AMAP 
Invalid state 


B 13 
Optimal Subcluster Computation SEP-1984 00:25:4 AX/VMS M vV04- 
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-SBTTL REMOVE_AMAP = Remove a node from AMAP 
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FUNCTIONAL DESCRIPTION: 
This routine removes a node from AMAP and adivets the figure of 
merit for the best potential subcluste to reflect the absence of 
this node. 

CALLING SEQUENCE: 
BSBB/BSBW/JSB §REMOVE_AMAP 

INPUT PARAMETERS: 
R1: Index of the node to add to CMAP 
ae! Address of CLUOPT block containing the CMAP and AMAP 
R53: Address of the CSB of the node to add 

OUTPUT PARAMETERS: 
NONE 

COMPLETION CODES: 
NONE 

SIDE EFFECTS: 


The contents of RO are destroyed. 


REMOVE_AMAP: 
BBCC R1,CLUOPTSB_AMAP(R2) ,208 ; penees from AMAP, branch if not present 

RY "Is the subject the quorum disk? 

10$ : Sronch if y 

55O8N VOTESCRS) RO ; Votes held” by node 

#8,RO0,RO ; Count each were | at 256 points 

R ; Include the no 

RO,CLUOPTSL_ACMERIT(R2) ; Remove from ACMERIT 
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BUG_CHECK CNXMGRERR,FATAL ; Invalid state 


CNXOPT - cet al Su 
QDMERIT = 


04-000 pues luster Coney tion * Vg-$EP-1984 00:25:48 YAX/VIS Macro 04-00 Page 13, 
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-SBTTL QDMERIT = Quorum disk contribution to figure of merit 
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FUNCTIONAL DESCRIPTION: 


7. deg Pg in aie the contribution of the quorum disk to the figure 
erit. sumes that the quorum disk does contribute. The 
cont but ion, is” calculated as the minimum of. ~y alesse Pe grt for the 
quorum disk by each of the nodes in CMAP. mum is in 
the same way as the votes contributed by a VAX "neds. Houever « 
pyervs disk + oy not get oe ae point yo represent the node reat, 
hus a VAX node with 7 vote more desirable than a 1 vote contribution 
from the quorum disk. 


CALLING SEQUENCE: 
BSBB/BSBW/JSB QDMERIT 
INPUT PARAMETERS: 


R4: Address of CLUB 
R9: Address of CLUOPT block nay + fe the tentative cluster 
R10: Address of vector mapping bitmap indices to CSB addresses 


OUTPUT PARAMETERS: 
RO contains the quorum disk's contribution to the figure of merit 


BBB DSRS Bo PUPP IVPVSUSVSVSVSUSIVSUSVS USES ISIS USI IOS ISIS 
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COMPLETION CODES: 
NONE 
SIDE EFFECTS: 
4 The contents of R1 and R2 are destroyed. 
1 sae 
: QDMERIT: 
52 OOAE C4 3C€ 4 MOVZWL CLUBSW gover cS (R4),R2 3; Accumulate minimum quorum disk votes in CM 
14 A9 OF 5 PUSHAB GLUOPTSB_C (R9) ; Push address of map to process 
1A 18 § BSEB 5 AN 3; Get call-back for each 
1250 € BLBC 208 : Branch if done 
50 OC AAQ1 09 8 MOVL ‘ €R10)CR1],R0 : CSB address 
OA 1 BEQL ; Branch if no CSB (quorum disk case) 
52 56 AO 1 9 $W_QDVOTES(RO) ,R2 ; Votes proposed for quorum disk 
04 E BGEQU 3; Branch if old was lower 
52 56 AO f ; MOVZWL CSBSW_QDVOTES(RO),R2 ; Update minimum 
? 108: RSB ; Continue scanning bits 
3006C«CS2tiéi‘iSS 8 5 20$: ASHL #8,R2,R0 ; Scale votes 
0 6 RSB 3; Return, votes in RO 
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-SBTTL SCAN_MAP = Scan bits in a specified bitmap 
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FUNCTIONAL DESCRIPTION: 
This routine is called to scan all of the bits in one of the bitmaps 
(CMAP, AMAP, RMAP) used in the optimization computation. for every 
bit in the map that is set, a co-routine call-back is made. 

CALLING SEQUENCE: 
BSBB/BSBW/JSB SCAN_MAP 

INPUT PARAMETERS: 


4(SP): Address of bitmap to scan 
O(SP): Return/co-routine address 


OUTPUT PARAMETERS/COMPLETION CODES: 
On a co-routine callback: 


RO has the low bit set 
R1 contains the index of the bit to process 


The co-routine must return with R1 intact. 
After the last bit has been processed 
RO has the low bit clear 
SIDE EFFECTS: 


At the final return, R1 has been destroyed. 
Any registers modified by the co-routines are changed. 
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SCAN_MAP: 
51 04 CLRL R1 : Initialize bit number 
ASSUME BL yCn 185 SAP 888 ; Assume at least one longword of bitmap 
50 0 00 198: MOVL #32,R0 ; Do as many bits as VAX can 
51 04 BE 50 1 FA 20$: FFS R1,RO,a@4(SP),R1 3; Look for a bit in the map 
6 3 BEQL §«=s«308 : No bits found 
50 Q0° 00 MOVL S“#SS$_NORMAL ,RO ; Set success status 
00 BE 16 JSB a(SP) 3; Do co-routine callback 
1 06 INCL R1 ; puse over selected bit 
50 Q00000E0 8F oe 30$ SUBL3 RI, - 3; Is there at least a longword left? 
#<CLUOPTSS_CMAP*8>-32,R0 
3 is 8 BGEQ 1 ; Branch if yes 
50 0 f ADDL2 #32,R0 3; Compute number of bits remaining 
1 4 » BGTR 2 : Branch if some bits left 
6E 3 dO 8 9 MOVL gre, COP) 3; Remove map address 
Be 35 CLRL R ; Set return status 
5 4 O87 RSB ; Return, scanning complete 
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CNXOPT 
Symbol table 


ADD_CMAP 
eucs CNXMGRERR 


CLUOPTS$W~SIZE 
CNXSALLOZMEM 
$oP 


S 
SS$_RORMAL 


PSECT name 
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0000 ( -» 00 ¢ 9.) NOPIC USR 
; ( -»> Q1¢ 1.) NOPIC USR 
( 627.) 02 ¢ 2.) NOPIC USR 
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CON ABS 


LCL 
CON ABS LCL 
LCL 


CON REL 


AX/VMS Macro V04-00 
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NOSHR NOEXE 
NOSHR EXE 
NOSHR EXE 
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NORD NOWRT NOVEC BYTE 
RD WRT NOVEC BYTE 
RD WRT NOVEC LONG 
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! Performance indicators ! 
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Phase Page faults CPU Time Elapsed Time 
Initialization : 06 :00:01. 
Command processing 1 700.4 :00:02. 
Pass 2 :00: § :00:16. 
Symbol table sort :00: - :00:00. 
Pass 13 :00:01.1 00:04. 
Symbol table output :00:00. :00:00. 
Psect synopsis output :00:00.01 :00: “Bi 
Cross-reference output :00:00. g :00:00. 8 
Assembler run totals 52 : . 0:00:26.4 


The working set Limit was 1500 pages. 

31048 bytes (61 pages) of virtual memory were used to buffer the intermediate code. 

There were 30 pages of symbol table space allocated to hold 429 non-local " 40 local symbols. 
5 source Lines were read in Pass 1, produ ing} object records in Pass 2. 

O) 


14 pages of virtual memory were used to defin macros. 
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Macro Library statistics H 


‘ 
pee moecn eae eetres ee sees eemces 


Macro Library name Macros defined 
5 eespua 8: SVELOA 08 2CL USTERMS; 1 0 
_8255$DUA28: ave ORY LIB.MLB; 6 
$255$D0UA28: (SYSLIBJSTARLET.MLB;2 $ 


TOTALS (all Libraries) 1 
502 GETS were required to define 10 macros. 

There were no errors, warnings or information messages. 
MACRO/LIS=LIS$:CNXOPT/OBJ=OBJ$:CNXOPT MSRC$:CNXOPT/UPDATE=(ENHS$:CNXOPT) +EXECML$/LIB+L1B8$:CLUSTER/LIB 
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